(lexical-let): Fixed a bug involving nested

lexical contexts and macros.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index aa8b9070e67b1b159f97cfc321186723a1f3f3de..37d02b564cbc8afbfd068e88eebd20a791e5ef00 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -1294,6 +1294,7 @@ lexical closures as in Common Lisp."
                          (or (consp x) (setq x (list x)))
                          (cl-push (gensym (format "--%s--" (car x)))
                                   cl-closure-vars)
+                         (set (car cl-closure-vars) [bad-lexical-ref])
                          (list (car x) (cadr x) (car cl-closure-vars))))
                       bindings))
         (ebody